2 A=A+1:IFA=1THENLOAD"MPRUN2",8,8
3 IFA=2THENLOAD"MPLIGHT",8,8
4 IFA=4THEN310
5 SI=54272:FORT=0TO24:POKESI+T,0:NEXT
8 GOSUB500:RESTORE
10 PRINT"[147]":POKE53280,0:POKE53281,0
12 PRINT"  FILMDISK EINLEGEN UND"
13 INPUT"  NAME DES FILMS ANGEBEN";L$
14 PRINT"[147]":SYS4096
15 DIMFA(40),TE$(3)
20 FORT=1TO33:READ FA(T):NEXT
50 FORT=1TO03:READ TE$(T):NEXT
100 FORT=1TO3:FORE=1TO33:POKE646,FA(E)
120 POKE214,11:PRINTTAB(20-LEN(TE$(T))/2)TE$(T):FORI=0TO30:NEXTI,E,T
125 TE$="[155]WAIT A LITTLE"
130 POKE214,11:PRINTTAB(20-LEN(TE$)/2)TE$
200 DATA0,11,12,15,1,1,1,1,1,1,1,1,1,1,1,1,1,1,15,12,11,0,0,0,0,0,0,0,0,0,0,0,0
210 DATA "ES FOLGT EIN SPITZEN FILM"
220 DATA "AUS DEM HAUSE LION-SOFT"
230 DATA "VON HELMUT BURGEMEISTER"
300 LOAD L$,8,8
310 PRINT"[147]":POKE704,4:POKE816,165:POKE817,244:SYS828
500 POKE65,PEEK(122):POKE66,PEEK(123)
510 FORT=0TO24:READE:POKESI+T,E:NEXT
520 DATA1,4,0,2,00,240,251,0,4,0,2,00,240,253,20,26,0,0,00,10,0,0,21,243,31
525 POKESI+4,65:POKESI+11,65
530 RETURN